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DOD DOD ccc LLL 
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DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL at 4 CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVE 


THIS SOFTWARE IS eres UNDER A LICENSE AND —T BE USED AND COPIED 
ONLY IN Agee NCE WITH THE TERMS OF SUCH Lt she SE AND WITH THE 
INCLUSION OF THE ABOVE Sg llhad NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


eeeeeeeeeeeeeeeeenens 
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EXAMINE / DEPOSIT DCLS COMMAND EXECUTION 
W. H. BROWN 28-JUL-1977 
MODIFIED BY: 


v03-002 PCG0002 Peter George 14-Jul-1983 
Convert results to binary after evaluating expressions. 


v03-001 PCG0001 Peter George 17-Feb-1983 
Remove SETBIT WRK y eNOSTAT in ‘hea and DERRSIT. 
Remove reference fo SCLIDEFQUA LEXAR 
Use PTR_B_NUMBER to get qualifier number. 


SOoooooooooooSo 
SOooooooooooooo 
SGOOOooooooooooo: 


Coooco oooooo 
SOoooooooo sss 


OOooooooscoo 
OOooocecscd 


> MACRO LIBRARY CALLS 


PRCDEF ; DEFINE PROCESS WORK AREA 
WRKDEF ; DEFINE COMMAND WORK AREA 
PTRDEF : DEFINE TOKEN DESCRIPTOR 
SCLIMSGDEF ; DEFINE ERROR/STATUS CODES 
SPSLDEF ; PROCESSOR STATUS LONG WORDS 


$ LCOAL DEFINITIONS 
: DISPLAY CONTROL MODE 


NA ASW 2S OO NAUNE WI OS OO NAME WN 9 OONAUN EWN OC OONOUS WW OODOVNOUS WH 


PUPPISIADTIIE BPE LLL LSE 
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; HEXMOD = : EXAMINE MODE IS HEX 
: DECMOD = : EXAMINE MODE IS DECIMAL 
OCTMOD = : EXAMINE MODE IS OCTAL 
FFFFFFFE 6¢ ASCMOD = = : EXAMINE MODE IS ASCII 
64 ; WIDTH CONTROL VALUES 
99 000 6g ‘ LONGWID = 4 : LONG WORD WIDTH 
0000001 BYTEWID = 1 : BYTE WIDTH 
00000002 WORDWID = 2 : WORD WIDTH 
: LOCAL DATA 
p 
00000 rs .PSECT DCL$ZCODE BYTE, RD, NOWRT 
13 : DISPLAY WIDTH CONTROL ARRAYS FOR EACH MODE 
01 03 03 2 a ld: 
02 5 £8 Wid: “BYTE 4.5.6.2 : LIKEWISE FOR WORD WI 
04 08 OA 08 4 LW: -BYTE 8.10,8,4 : AND THE SAME FOR LONGWORDS 
1; 
¢ ; RADIX TABLE FOR NUMERIC CONVERSION. NOTE: RADIX 0 IS ASCII CONVERT 
08 OA 10 4 RADIX: .BYTE  16,10,8 : RADIX CONVERT TABLE 
$ ! BIT ARRAY TO DEFINE WHICH OPTIONS EFFECT MODE OR WIDTH. 
8 ; BIT SET INDICATES MODE SPECIFIER. 
0° 
“ 91 TYPE: .BYTE <1@CLISK_EXAM_ASCI>!= ; ASCII IS A MODE SWITCH 
3 <1aCLISK“EXAM-DECI>'= $ DECIMAL IS A MODE SWITCH 
0 9 <1ACLISK-EXAM-HEXA>!= > HEXIDECIMAL 
01° 94 <1aCL1$K“EXAM_OCTA> : AND OCTAL 


; QUALIFIER VALUE TABLE. THIS ARRAY HAS THE ASSOCIATED DATA FOR 
; THE RESPECTIVE OPTION TO BE LOADED INTO THE TABLE. 


02 02 04 00 01 01 FF VALU: BYTE ASCMOD,BYTEWID,DECMOD ,HEXMOD ,LONGWID ,OCTMOD ,wORDWID 


et ed td ad et I IE_QOOOO 
oo 
LS32 


Ssss 
—— 


BYTE 2,3,3.1 3; DISPLAY WIDTH FOR tht Hg EACH MODE 


———~ 
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~SBTTL EXAM/DEPO COMMAND 
DCLSEXAMINE = EXAMINE MEMORY COMMAND 


v04-000 


on 
a 
= 


=e 
Bz 


THIS AE i et RS eed AS AN INTERNAL COMMAND TO EXECUTE THE EXAMINE 


DCLS C 

INPUTS: 
R10 = BASE ADDRESS OF COMMAND WORK AREA. 
R11 = BASE ADDRESS OF PROCESS WORK AREA. 


WORK AREA LOCATIONS: 
PRC_L_EXMDEPADR HAS ‘'DOT"’ 
PRC_B_EXMDEPWID HAS CURRENT WIDTH, IE: BYTE, WORD, LONGWORD. 
PRC_B_EXMDEPMOD HAS CURRENT MODE, IE: HEX, ASCII, DECIMAL, OCTAL. 
OUTPUTS: 


THE CURRENT DEFAULT RADIX AND WIDTH ARE SET TO THOSE SPECI 
THE SPECIFIED LOCATION(S) ARE DISPLAYED IN THE CURRENT RAD 


-ENABL LSB 


IED, IF ANY. 
X AND WIDTH. 


F 
I 


Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge 
6 +> 


CSoooooocooo 


ee ek ed dd od 
OF SWS 


De ee ee ce ed a ce a ee ee oe ad ad a oS od a td = SS SS SS 2 8 td ow 4 I 2 td = St 8 td 


DAA AAT ES BS BS BS SB BE EIA AI A I I ROOF A OQOOOCOO 


DOONAN EWN 9 OS OOD NAN E WIN 9 OOD NOAUE WINS OONA NEW O OONAUF WN" OVWONAOUE Ww 
vo 
Cc 
an” 
= 
r 


0 
0 
0 
9 
00 DCLSEXAMINE: : ; 
0003 30 «00 BSBW ss GETTIVL : GET LOCATION 
58 dD 00 R8 > SAVE VALUE 
50 3 00 TSTB. RO + END-OF LINE? 
vs 13° 0 BEQL 208 : BR IF Y 
50 3A 91° «00 CMPB 40s #*A/:/,RO : LIST? 
03 «13 «00 BEQL $ : BR IF OK 
0144 31 00 BRW EXPSYN : ALL DONE = SYNTAX ERROR 
FFDS' 30 00 10$: BSBW  DCLSMOVCHAR : COPY COLON INTO COMMAND BUFFER 
00cB: S30 0 BSBWOCé«G : FIND OTHER LIMIT 
OOA8 CB 8 9 44 : 20$:  MOVAB (R8)+,PRC_L_EXMDEPADR(R11) ; SET NEW DOT’ 
8EDO 0 POPL R7 : SET NEXT ADDRESS TO EXAMINE 
50 57 dO 00 EXAMIN: MOVL _R7,RO : GET A COPY OF CURRENT ADDRESS 
52 of 0 MOVAB (SP) : BUFFER 10 USE 
01 D03¢ BSBW = OCLSCNVHXL : FORMAT HEX LOMGWORD 
82 203A 8F B80 003F VW  #*A/: 7, (R2)4 : SEPARATE ADDRESS FOR CONTENTS 
1 D4 0044 CLRL RY ; BUFFER WIDTH ADJUSTMENT OF ZERO 
5 1 £0 0046 40$: ADDL R2 : POINT AT NEXT FREE BYTE 
0 004 VB #*h/ /,(R2)4 > SPACE OUT NEATNESS 
53 AC CB 9A 004C MOVZBL PRC_B EXMDE D(R11),R3 : GET WIDTH OF CELL TO DISPL 
0051 IFNORD R3,CR7),50$,MPSLSC_USER ; si CK FOR USER ACCESS TO DATA 
18 QOAF ce 03 f 0057 BBS #PRC_V_EXEONLY, PRC B_FLAGS (R11),50$ ; NOT READABLE IF EXECUTE ONLY 
1 AD C OC CVTBL PRC_B_EXMDEPMOS(R1T)-R1 ; MODE WE ARE DISPLAYING IN 
40 1 006 BLSS 908 : BR IF ASCII MODE 
02 D1 CMPL  R3,82 : CHECK WIDTH OF DISPLAY 
4 0067 BGTR 70$ : IF GTR THAN WIDTH IS LONGWORD 
13 0069 BEQL 60$ : BR IF WORD WIDTH 
50 & 9A 0066 MOVZBL (R7)+,RO : BYTE WI GET VAL 
53 BE AF41 9A i MOVZBL BucR1I.R3 : 
ue 3 
58 D0 007 50$ MOVL Ry RE : TERMINATE DISPLAY AFTER THIS LINE 


; BYTE WIDTH ~ UE | 
; WIDTH OF FORMATED DISPLAY 
J 
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2A2A2A2A 9 78 («1 MOVL #*A/eeee/,(R2)¢ z INDICATE ACCESS VIOLATION 
i 9 BRB 110$ : SHOW WHAT WE HAVE TO SHOW 
30 C 1 162 60$ MOVZWL (R7)+,RO + VALU 
FF “f A 4 : 4 BL 4 R14,R3 + GET WIDTH FOR WORD DISPLAY 
50 po C 165 708: HOV (R7)#,RO $ VALUE 
53. OFF 74 ff A eS 6 MOVZBL LWCR14,R3 + WIDTH OF FORMATTED DISPLAY 
08 ; 167 80$ PUSHR #°M<R3> : SAVE WIDTH 
51 FF70 gre A 009 168 MOVZBL RADIX R1),R1 + RADIX 
7 30 009 18 BSBW = DCLSCNVNUM : GET VALUE 
1 BA AO 170 POPR #*M<RO> : GET WIDTH OF DISPLAY INTO RO 
4 11 OOA2 17 RB 110$ ; 
D7 00A6 172 908: ECL Re : BACK OVER SPACE 
5 pO ag 17 VL —sR'3, RO : COPY WIDTH OF DISPLAY 
é 3 AD 174 1008: MOVE (R?)+,(R2) ; COPY DATA INTO OUTPUT BUFFER 
2 2 91 OOAC 175 CMPB (Re) + ,A*A/ / : CHARACTER PRINTABLE ? 
.-§ AF 126 BGEQ  105$ : BR IF yes 
FF A2 5 0B1 17 MOVB #*A/./,-1(R2) + IF NO-PRIN A DoT” 
F1 F 083 178 105$ SOBGTR R3, 1008 : MOVE ENGUCH BY TES? 
51 5 ee. B 179 110$:  SUBL3  $P.R2,R1 : SET BYTE COUNT IN THE LINE 
5 E 00 OBC 180 MOVL SPR : STARTING ADDR ESS 
5 1 ¢O OOBF 181 ADDL R1.R : ADD COUNT FOR NEXT DISPLAY 
4c BF 6500S o91s«OC2s : CMPB OS saRO. #76 : ENOUGH ROOM FOR STRING PLUS SPACE 
08 1€ o¢ 1 BGEQU 126s : BR IF NOT ENOUGH 
58 D1 00C8 184 CMPL =R7_RB : FINIS 
a3 15 OCB «185 BGEQU leds : BR IF NO MORE TO PRINT 
FF76 : OCD 1 6 BRW 40$ : ELSE PRINT SOME MORE 
FF D' 0 00 187 120$: BSBW DCLSMSGOUT + PRINT IT 
58 D1- 0003 = 188 CMPL = R7_RB : DONE? 
3 IF 006 189 BGEQU 136$ : BR IF YES 
FF5B 3 OD 190 BRW EXAMIN : ELSE FORMAT ANOTHER LINE 
ODB 191 130$: STATUS NORMAL 
008E 31 OE 198 160$: W EXIT 3 EXIT 


= 


COOOOOOOSoOoOOooooo me 
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me 
= 
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~ 
So 


+ 
GETIVL = GET INITIAL VALUE FROM THE COMMAND LINE. 

; GETVAL = GET NEXT VALUE FROM THE COMMAND LINE. 

; INPUTS: 


R10 = BASE ADDRESS 
R11 = BASE ADDRESS 


WORK AREA LOCATIONS: 
PRC_L_EXMDEPADR HAS ‘‘DOT’’ 


PRC_B_EXMDEPWID HAS CURRENT WIDTH, IE: BYTE, WORD, LONGWORD. 
PRC_B_EXMDEPMOD HAS CURRENT MODE, IE: HEX, ASCII, DECIMAL, OCTAL. 


1 
1 
1 
1 
1 
1 


OF COMMAND WORK AREA. 
OF PROCESS WORK AREA. 


OB NAUIE WO OODNAUIE 
. . . 


BDOOGGGOOOOOOOOOO 


OUTPUTS: 


ANY QUALIFIERS IN THE COMMAND LINE PRECEEDING THE NEXT VALUE 
ARE PROCESSED AND THE NEXT EXPRESSION ON THE COMM 

IS EVALUATED AND RETURN IN R8. REGISTERS RO TO RB ARE MODIFIED. 
WRK_L_EXPANDPTR IS UPDATED TO THE NEXT BYTE IN THE EXPANSION BUFFER. 


-ENABL LSB 


2C 3D 3A 00 + + eASCII <O>\:=,\ ; SPECIAL TERMINATORS FOR ‘‘DOT’’ 


RADIX CONVERT TABLE = COVERT DISPLAY MODE TO RADIX INDEX 


oes 8 
0 i 
oes 513 : 
0 14 
0 15 
0 1 
00 1 
00 18 
00 19 
00 0 
99 1 
ae 3s 
00 00 5 -BYTE PRC_K_HEX ; MINUS ONE INDEX(ASCII)=CONVERT IN HEX 
02 01 00 00 6 15$:  .BYTE PRCZKTHEX,PRC_K_DEC.PRC_K_OCT ; RADIX TRANSLATE 
Qu BA 9 8 GETIVL: POPR #*M<RO> 3; GET RETURN ADDRESS 
FL AA SE DO 00 9 MOV. SP,WRK_L_SAVSP(R10) ; MARK THE STACK FOR ERRORS 
SE 80 Ar 9E 0 MOVAB =80(SPY,SP ; ALLOCATE A LINE BUFFER 
50 OD 1 PUSHL R 3; REPLACE RETURN ADD 
D 10 : GETVAL: BSBB 0$ ; PEEK AT NEXT CHARACTER IN INPUT 
FFO2" ; 0 BSBW = OCLSMARK : MARK CURRENT PARSE POSITION 
50 1 00 4 CMPB#*A/ /,RO ; BLANK 
12 1 5 BNEQ ; BR I CONTINU 
FEFA' 30 01 6 BSBW DCLSMOVCHAR ; ELSE COPY SPACE TO BUFFER 
Fl «611«01 6 BRB GETVAL > TRY AGAIN 
2 650) «9101 : 208: CMPB RO,#*A\/\ 3 QUALIFIER COMMING? 
24 12 1 BNEQ ; BR IF NO QUALIFIER IN SIGHT 
FeEO' 1 40 BSBW DCL SPROCQUAL ; PROCESS THE QUALIFIER 
60 ; 4 1 41 BLBC EXIT ;_BR iF ERROR IN QUALIFIER 
51 BA Aa OC 3 11 4¢ SUBL3 #PfR_C_LENGTH,WRK_L_RSLNXT(R10).R1_; ADDRESS OF PREVIOUS TOKEN DESCR 
0 OS Al 9A 011 4 MOVZBL PTR_B_AUMBER(R1) A ; GET QUALIFIER CODE 
51 QOAC 4: 11¢ 44 MOVAB  PRC~B EXRDEPWID(RI ),R1 ; ASSUME CHANGING WIDTH 
02 FEES CF E1 01 45 BBC RO, TYPE, 3 ; BR IF ASSUMED CORRECTLY 
127 46 INCL ; POINT AT MODE LOCATION 
61 FEET CFS 129 267 30$:  MOVB VALU-1CR0),(R1) ; SET MODE OR WIDTH 
11 O12F 24 BRB GETVAL ; TRY FOR MORE 
ps 131 249 408: CLRL R ; ZERO ACCUMULATOR 
50 2 91 0133 25 CMPB ss #*A/./,R0 : REFERENCE TO LAST LOCATION 
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EXAM/DEPO COMMAND 2786-1382 $3 48; 7 fet eacleg P.MAR;1 ° (3) 
11 «12 «01 BNEQ 50S : BR_IF NO 
58 00A8 138 ; MOVL PRC_L EXMDEPADR(R11), R8 : GET THE PREVIOUS LOCATION 
FECO" 1 BSBW SMOVC : PUT DOT INTO COMMAND BUFFER 
14 4 BSBB $ + LOOK AT NEXT CHAR 
9E AF 04 A 014 LOCC =—_ RO, #<11$-10$>,, 108 : ANY OF THE SPECIAL TERMINA 
if 8612 014 : BNEQ i és 3 BR IF YES-NO EXPRESSION nM OVALUATE 
58 p 149 50$:  PUSHL + SAVE INITIAL VALUE 
51 QOAD ce 14 3 CVTBL iis B TPrRpePnon (Rit), »R1 : GET MODE OF OPERATION 
1 6 AF A 01 MOVZBL ccbe ; CONVERT TO SYSTEM STANDARD RADIX 
EAS’ 9 1 60 BSBW EXPRADIX : EXPRESSION WITH RADIX 
18 5 : 1 1 BLBC a ; BR IF ERROR EVALUATING EXPRESSION 
EAS p 158 6¢ BSBW sé att BINARY 3 CONVERT RESULT TO BINARY 
125 : 1 : BLBC ; BR IF ERROR CONVERTING 
FEgC" 0 016 64 BSBW pci $n 3 MARK CURRENT PARSE POSITION 
E ADDL a : R ; GET FINAL VALUE TO WORK 
58 8& 5 1 0164 265 3 RI 5) 8 ET FI — TO WORK WITH 
FES" 39 8 66 130$: Bey DCL$S SF tne : PEEK AT NEXT NON-BLANK CHAR 
16C (26 y 
O16 63 EXPSYN: STATUS EXPSYN : SYNTAX ERROR 
SE F4 AA 00 01 O EXIT: MOVL WRK_L_SAVSP(R10),SP : CLEAR THE STACK 
RSB + RETURN TO CALL 
05 017 71 ET ER 
ants rg .DSABL LSB 
017 74 OVRFLW: STATUS OVRFLW Lue TO LARGE FOR CELL 
FO AA 02 AB O17 75 BISW #WRK_M_COMMAND,WRK_W -Fuaksith IN DICATE ERROR DURING EXECUTION 
EE 11 0183 276 BRB EXIT chad 
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1 
EXAM/DEPO COMMAND 46-SEP-1984 DCL.SRCJEXAMDEP.MAR; 1 (3) 
Tee 
p : DCLSDEPOSIT = DEPOSIT DATA IN MEMORY 
1 : : THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE DEPOSIT 
33 DCLS COMMAND. 
5 : INPUTS: 
1 5 : R10 = BASE ADDRESS OF COMMAND WORK AREA. 
8; R11 = BASE ADDRESS OF PROCESS WORK AREA. 
$0 + WORK AREA LOCATIONS: 
185 36 : PRC_L_EXMDEPADR HAS "DOT" 
185 293: PRC “$: XMDEPWID HAS CURRENT WIDTH, ILE: BYTE, WORD, LONGWORD. 
5 3 ; PRC-B-EXMDEPMOD HAS CURRENT MODE, IE: HEX, ASCII, DECIMAL, OCTAL. 
36 : OUTPUTS: 
185 298; THE CURRENT DEFAULT RADIX AND WIDTH ARE SET TO THOSE SPECIFIED,IF ANY. 
189 99 ; THE SPECIFIED LOCATION(S) ARE SET IN THE CURRENT RADIX AND WIDTH. 
0183 01 
E1 00 FO F8 0185 08 SHFCNT: .BYTE -8,-16,0,-31 ; SHIFT CUMINT FOR SIGN EXTEND 
o1 9 304 DCLSDEPOSIT:: ; DEPOSIT DATA IN MEMORY 
FFI 30 0189 305 BSBW ss GETTIVL : INIT AND GET VALUE 
0 3% 91 O18 306 CMPB ss #*A/=/,RO : VALID NERRINATOS 
p 12 18F 07 BNEQ EXPSYN + BR ON SYNTAX ERROR 
DD 0191 308 PUSHL RB : SAVE INITIAL = 
57 20 193 309 MOVL R8,R7 * SET AS LAST LOCATION USED("'DOT"). 
FE67" 30 196 10 10$:  ®BSBW  DCLSMOVCHAR : MOVE TERMINATOR 
FF 8F  OOAD ce 1 199 1 CHPB PRC_B_EXRDEPHOD(R11) ,AASEMDD j, BOING ASCII 
rege: ; 1A1 ig BSBW DCLSMARK + MARK CURRENT POSITION IN BUFFER 
FE59° 1A4 314208: = BSBW LSMOVCHAR : MOVE NEXT CHARACTER 
FB 12 «O17 315 BNEQ t UNTIL END OF LINE 
FE54* 30 O1A9 «316 BSBW DCLSMARKEDTOKEN : GET DESCRIPTOR OF STRING 
1 D7 O1AC 317 DECL = RI + DISCOUNT EOL CHARACTER 
18 13 1A 18 BEQL 40S : BR IF NULL STRING 
FE4D' 3 186 19 BSBW  DCLSCOMPSTRING : COMPRESS THE STRING 
1B 0 IFNOWRT R1,(R7),90$,MPSLSC_USER ; ERFIFY PROPER ACCESS 
54 OOAF c 3 60 189 1 #PRC EXEQNLY, RC~B_FLAGS2(R11),90$ ; NOT WRITEABLE IF EXECUTE ONLY 
6 63 3 1BF é MOVC3 mcf T,(R7) : STORE fHE DATA 
5 3 pO 01C3 MOVL R : SET ENDING ADDRESS 
4B O11 1¢6 4 BRB 9 : SHOW THE 
52 OOAC CB 9A OIC 5 40$: MOVZBL PRC_B XN DEPWID(R11),R2 : SET WIDTH OF OPERATION 
1C 6 IFNOWRT R2 B75 90$,#PSLS$C_USER ; VERIFY PROPER ACCESS 
3A OOAF CB 93 £0 01D BBS #PRC_V ENE LY,PRC-B_FLAGS2(R11),90$ ; NOT WRITEABLE IF EXECUTE ONLY 
bp 109 3 PUSHL a? ; SAVE ADDR ES$ TO DEPOSIT 
FFAG 0 0108 BSBW GETVAL : GET VALUE 
57 8ED0 IDE 0 POPL t RESTORE THE ADDRESS 
2 ooac ¢ A OIE 1 MOVZBL PRC_B_EXM mDEpM ID(R11),R2 : SET WIDTH 
i A ars A O1E6 g MOVZBL SHFENT=1 1CR2],R1 : GET SHIFT COUNT 
1 58 8 1B ASHL RB,R1 : GET THE SIGN OF THE VALUE 
13 O1EF 4 BEQL Bb : BR IF POSITIVE NUMBER 
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1 INCL e} : NEGATIVE SIGN? | 
1 BEGL 50S : BR IF NO-OVERFLOW HAS OCCURED 
FF 1 BRW 0 Reb 
52 ¢ 1 50$ SUBL  #2,R : DECODE WIDTH 
1 BGTR 708 ; BR IF LONGWORD 
19 01 BLSS 60S : BR IF BYTE 
87 80 nov RB, (R7)+ : STORE DATA 
87 90 60S: wove RB, (R7)* t STORE DATA 
87 D 70$: MOVL R8,(R7)+ : ETC 
9 80$: TSTB R : END OF LINE 
1 BEQL 908 : BR IF YES 
FF 31 BRW 10$ 
5B 90$ MOVAB (R7),R8 : SET UPPER LIMIT 
00a8 (8B «OC«S7~—Ci«é®D MOVL  R7,PRC_L_EXMDEPADR(R11) ; SET ‘DOT’ 
7 BED POPL 7 : GET FIRST VALUE 
FEIS) 31 BRW EXAMIN + PRINT THE RESULT 


+ 
DCLSCNVNUM - CONVERT NUMBER 
THIS why CONVERTS A BINARY NUMBER INTO A ASCII STRING IN ANY RADIX 
; FROM 2-9 OR HEX. 


; INPUTS: 
RO = NUMBER 

R1 = RADIX 

Re = BUFFER TO STORE RESULT 
RS = NUMBER OF CHARACTERS 


; ALTERNATE ENTRY DCLSCNVHXL - FOR CO VERSION OF HEX LONG WORDS 
OUTPUTS: 


THE NUMBER IS CONVERTED TO STRING, AND THE BUFFER POINTER 
IS ADVANCE TO BEYOND THE LAST CHARACTER. 


SN NINDS DOS DS DS DDD TU TT ES BS SB BBB EE EI 
NAME WN OS OOONAUE WN O OO NAMES WN SO DOONEY OOONOU 


DCLSCNVHXL: : : CONVERT HEX LONG WORD 
53 08 00 MOVL  4#8.R3 : SET NUMBER OF CHARATERS TO OUTPUT 
51 10 00 , MOVL #16,R1 + AND RADIX 
77 DCLSCNVNUM: : : CONVERT NUMBER TO STRING 
sc 051~—iséO 8 MOVL 1, AP + SAVE RADIX IN SCRATCH REGISTER 
1 D4 ? CLRL : SET EXTENDED WORD OF ZERO 
50 50 010$:  EDIV AP RO. RO -(SP) : REMOVE THE RADIX 
6E 8 1 ADDB#*A/ i. ($P) t CONVERT TO ASCII 
1 3 CMPB ss SP) , #4A/9/ : DECIMAL NUMBER 
1 7 BLEQU : BR IF YES 
6E 8 9 4 ADDB es #7, (SP) : SET TO HEX CHARACTER 
3 C 5 20$ DECL RS : COUNT DOWN THE NUMBER OF CHARACTERS 
B 13 6 BEGQL 40% : BR IF DONE 
14 BGTR 30% : BR IF NO ZERO SUPPRESSION 
9 D 8 TSTL : ANY MORE DATA? 
1 BEQL 40% : BR IF NO 
Es 1 6 : 308: BSBBséd‘OS : CONVERT NEXT DIGIT 
82 BE F6 91 40$:  CVTLB (SP)+,(R2)+ : STORE A DIGIT 
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; UNWIND RECURSIVE LOOP 


tee 


ro 


oMAR; 1 
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Psect synopsis aoe 7 $3 43; 97 DCL.SRCIJEX YAM AMDEP.MAR; 1 _ 8) 


gman nn ean oewrees va} 


! Psect synopsis ! 


Fwoenr meme coneamenne} 


PSECT name Allocation PSECT No. Attributes 

- ABS . 00000000 ( -)» 00 ¢ 9.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS FFFFFFFC ¢ -)» O1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
DCLSZCODE 0000024 ( 588.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WNOWRT NOVEC BYTE 


$¢oeeaenaoca weaees meas saoeasae} 


! ; Performance indicators H 


Phase Page faults CPU Time Elapsed Time 
Initialization 1 0: «4 8-99 : +8) -§ 
—Ey processing 18 : 3: a : 98 
Symbol table sort 9 0: f 0:74 $: # 2:5 
Symbol table output 20 :00: 0:13 :00: 083 
Psect synopsis output 3 :00:00.0 03 
Cross-reference output 0:00:00.00 0:09 :90.00 
Assembler run totals 436 0:00:09.76 0:34.04 


eyorking set Limit was 1200 pages. 
aie ayees (61 pages) of virtual memory were used to buffer sine intermediate gode 
There were pages of symbol table space er iecetee to hold 500 non-local ane 4 local symbols. 
94 source iinee were read in Pass 1, producing 14 object records in Pass 
2 pages of virtual memory were used to define 18 macros. 


coset eS sees eon mane emeamoaman } 


Macro sossecae nase Macros defined 
tS beth) Sea ee MLB; 1 0 
sLDOCL. att ort 8 
Ba :CSYS. “08341 
:CSYSLIB STARLET. Pale; 32 4 
wet Ate pibets red 12 


594 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:EXAMDEP/OBJ=OBJ$:EXAMDEP MSRC$:EXAMDEP/UPDATE=(ENHS:EXAMDEP) +EXECMLS/LIB+LIB$:DCL/LIB+SYSS$LIBRARY : SYSBLDMLB/L IB 
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DENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


IT 
FI 


DIG 
CON 


